home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol402 / polyops.arc / PCLD.FOR < prev    next >
Encoding:
Text File  |  1985-11-29  |  1.1 KB  |  45 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE PCLD
  5. C
  6. C        PURPOSE
  7. C           SHIFT OF ORIGIN (COMPLETE LINEAR SYNTHETIC DIVISION)
  8. C
  9. C        USAGE
  10. C           CALL PCLD(X,IDIMX,U)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           X     - VECTOR OF COEFFICIENTS, ORDERED FROM SMALLEST TO
  14. C                   LARGEST POWER. IT IS REPLACED BY VECTOR OF
  15. C                   TRANSFORMED COEFFICIENTS.
  16. C           IDIMX - DIMENSION OF X
  17. C           U     - SHIFT PARAMETER
  18. C
  19. C        REMARKS
  20. C           NONE
  21. C
  22. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  23. C           NONE
  24. C
  25. C        METHOD
  26. C           COEFFICIENT VECTOR X(I) OF POLYNOMIAL P(Z) IS TRANSFORMED
  27. C           SUCH THAT Q(Z)=P(Z-U) WHERE Q(Z) DENOTES THE POLYNOMIAL
  28. C           WITH TRANSFORMED COEFFICIENT VECTOR.
  29. C
  30. C     ..................................................................
  31. C
  32.       SUBROUTINE PCLD (X,IDIMX,U)
  33.       DIMENSION X(1)
  34. C
  35.       K=1
  36.     1 J=IDIMX
  37.     2 IF (J-K) 4,4,3
  38.     3 X(J-1)=X(J-1)+U*X(J)
  39.       J=J-1
  40.       GO TO 2
  41.     4 K=K+1
  42.       IF (IDIMX-K) 5,5,1
  43.     5 RETURN
  44.       END
  45.